1 REM LINE WRITER FOR VIC AND C64
2 REM BY STEPHEN S. LEVEN, AUGUST 1983
3 PRINT CHR$(14)              : REM UPPER/LOWER CASE SET
4 POKE 53280,6 : POKE 53281,1 : REM FOR COMMODORE 64 ONLY
5 PRINT "[147][197]NTER" : PRINT" 1[146]  SINGLE WIDTH PRINTOUT"
6 PRINT " 2[146]  DOUBLE WIDTH PRINTOUT" : PRINT" 3[146]  END"
7 GET N$ : IF N$="" THEN 7
8 IF VAL(N$)=1 THEN N=15 : M=79 : GOTO 12
9 IF VAL(N$)=2 THEN N=14 : M=39 : GOTO 12
10 IF VAL(N$)=3 THEN PRINT"[147]"CHR$(142) : GOTO63000
11 GOTO 5
12 PRINT"F1 TO EXIT":PRINT "[212]YPE:" : B$=""
14 PRINT TAB(M)CHR$(171); : FOR J=1 TO M+1 : PRINT CHR$(157); : NEXT
15 PRINT CHR$(166);           : REM CURSOR
19 IF A$=CHR$(34) THEN POKE 212,0
20 GET A$ : IF A$="" THEN 20  : REM GET ONE TYPED CHARACTER
21 IF A$=CHR$(133) THEN 5
22 IF A$=CHR$(13) THEN PRINT CHR$(157)" ";TAB(M)" "CHR$(145); : GOTO 30
23 IF A$=CHR$(20) OR A$=CHR$(157) THEN A$=CHR$(157) : GOTO 25
24 IF ASC(A$)<32 OR (ASC(A$)>127 AND ASC(A$)<160) THEN 20
25 IF B$="" AND A$=CHR$(157) THEN 20
26 IF A$=CHR$(157) THEN B$=LEFT$(B$,LEN(B$)-1) : GOTO 28
27 B$=B$+A$                   : REM ADD A$ TO END OF B$ STRING
28 IF A$=CHR$(157) THEN PRINT CHR$(157)" ";
29 PRINT CHR$(157)A$CHR$(166); : GOTO 19
30 IFB$="QUIT"THENRUN
32 OPEN 1,4,7                 : REM DATA CHANNEL FOR PRINTER
40 PRINT#1, CHR$(N)B$; : PRINT#1 : POKE 212,0 : PRINT#1, CHR$(15); : PRINT
50 CLOSE 1                    : REM CLOSE DATA CHANNEL
60 GOTO 12                    : REM GO BACK TO STEP 1
63000 REM CONNECT TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE631,13:POKE632,13:POKE198,2:END